home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk113 / arexx / yes_no.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  1KB  |  35 lines
  1. /* yes_no.rexx */
  2. YES = 1
  3. NO  = 0
  4.  
  5. /* This routine gets user keyboard input, but only returns yes or no */
  6. yes_no:
  7. arg msg                             /* msg to send to user             */
  8. do forever
  9.     say msg                         /* show our msg to the user        */
  10.     pull answer                     /* get keyboard response from user */
  11.     if compare(left(answer,1),'Y') == 0 then return YES
  12.     if compare(left(answer,1),'N') == 0 then return NO
  13.     say 'Please only ENTER y/n !'   /* incase user pressed something else */
  14. end
  15.  
  16.  
  17. help_msg:
  18.     say 'add help commands here '
  19.     return
  20.  
  21.  
  22. /* WE HAVE MORE ROUTINES TO GO, like the routine to modify the startup
  23.    sequence on the disk for your own environment, and if you use
  24.    arp, move the arp commands & the arp.library to the disk.
  25.    also I have a crunched version of preferences I move over to save 23K
  26.    or so. and I add BlitzDisk (removing Addbuffers). I also add wshell
  27.    which has IF,ENDIF,PROMPT,FAILAT,MOUNTED,SKIP,ENDSKIP,STACK,PUSHCD,
  28.    POPCD,QUIT,SWAPCD,PAUSE,LAB,GOTO,ENDCLI,CD,ECHO and other cmds built
  29.    in.
  30. */
  31.  
  32. /* BTW U have to mount PIP: which is the pipe that conman uses .
  33.    the execio cmd uses pip
  34. */
  35.